home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 426-450 / disk_441 / dme / stefan.afilereq < prev    next >
Internet Message Format  |  1992-05-06  |  3KB
  1. From uunet!mcsun!cip-s01.informatik.rwth-aachen.de!stefanb Mon, 8 Oct 90 09:19:19 PST
  2. Received: by overload.Berkeley.CA.US (1.06D/Amiga)
  3.     id AA00000; Mon, 8 Oct 90 09:19:19 PST
  4. Received: from mcsun.UUCP by uunet.uu.net (5.61/1.14) with UUCP 
  5.     id AA02154; Sat, 6 Oct 90 15:59:56 -0400
  6. Received: by mcsun.EU.net with SMTP; Sat, 6 Oct 90 17:22:54 +0100
  7. Received: from [192.35.229.1] 
  8.     by unido.informatik.uni-dortmund.de with SMTP via EUnet (UNIDO-2.0.2.c) via EUnet
  9.     for mcsun.eu.net
  10.     id AQ05894; Sat, 6 Oct 90 16:45:22 +0100
  11. Received: by informatik.rwth-aachen.de (5.51/CA.16)
  12.     id AA06804; Sat, 6 Oct 90 16:45:19 +0100
  13. Received: by cip-s01.informatik.rwth-aachen.de (4.0/RWTHINF.1)
  14.     id AA09444; Sat, 6 Oct 90 16:38:41 +0100
  15. Message-Id: <9010061538.AA09444@cip-s01.informatik.rwth-aachen.de>
  16. Date: Sat, 6 Oct 90 16:38:39 MET
  17. X-Mailer: ELM [version 2.3 PL6]
  18. From: uunet!cip-s01.informatik.rwth-aachen.de!stefanb (Stefan Becker)
  19. To: overload!dillon (Matthew Dillon)
  20. Subject: New arpreq() for 2.0
  21.  
  22. Hi Matt!
  23. Here is a new afilereq.a for DME which uses the asl.library
  24. File Requester.
  25.  
  26. -------------------- Cut Here -----------
  27. ; new arpreq() function for DME, which uses the new "asl.library"
  28.  
  29.          ;   arpreq(hail,file,dir,window)
  30.  
  31.          section  text,code
  32.  
  33.          xdef     _arpreq
  34.          xref     _LVOOpenLibrary
  35.          xref     _LVOCloseLibrary
  36.          xref     _LVOAllocFileRequest
  37.          xref     _LVORequestFile
  38.          xref     _LVOFreeFileRequest
  39.  
  40. aslname  dc.b  $61,$73,$6C,$2E,$6C,$69,$62,$72,$61,$72,$79,0
  41.  
  42. _arpreq  movem.l  D2-D3/A2/A6,-(sp)
  43.          move.l   4,a6                 ; open asl.library
  44.          lea.l    aslname(pc),a1
  45.          clr.l    d0
  46.          jsr      _LVOOpenLibrary(a6)
  47.          tst.l    d0
  48.          beq      return               ; no luck today...
  49.  
  50.          move.l   d0,a6
  51.          clr.l    d2                   ; set result to NULL
  52.          jsr      _LVOAllocFileRequest(a6)   ; alloc FileRequester structure
  53.          tst.l    d0
  54.          beq      closelib             ; no luck either :-(
  55.  
  56.          move.l   d0,a2
  57.          movem.l  20(sp),D0-D3         ; initialize data (4 longword registers
  58.                                        ; + return address = 20 Bytes offset)
  59.          movem.l  D0-D3,(a2)
  60.  
  61.          move.l   a2,a0
  62.          jsr      _LVORequestFile(a6)  ; display requester
  63.          move.l   d0,d2                ; save result
  64.  
  65.          move.l   a2,a0                ; free FileRequester structure
  66.          jsr      _LVOFreeFileRequest(a6)
  67.  
  68. closelib move.l   a6,a1                ; close asl.library
  69.          move.l   4,a6
  70.          jsr      _LVOCloseLibrary(a6)
  71.  
  72.          move.l   d2,d0                ; set return code
  73. return   movem.l  (sp)+,D2-D3/A2/A6
  74.          rts
  75.  
  76.          end
  77. -------------------- Cut Here -----------
  78.  
  79.     Stefan
  80.  
  81.